#Exerccios 1

#1.1 Basta Mudar o Diretrio?
##Qual o comando voc usou para mudar o diretrio de trabalho?
setwd()

##Este comando bastou para restituir o workspace? Se no, que outro comando  necessrio?
load()

#1.2 Um Comando Perigoso

##H um comando simples com a funo rm que apaga todos os objetos de sua rea de trabalho. Qual ?
rm(list = ls())


##Suponha que voc tenha digitado este comando. De que maneira pode recuperar todos os objetos apagados, rapidamente?
source()

#1.3 Classes de Objetos
#A distribuio bsica do R vem com os objetos letters e LETTERS.
##Descubra o que cada um contm.
[1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
[20] "t" "u" "v" "w" "x" "y" "z"

[1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S"
[20] "T" "U" "V" "W" "X" "Y" "Z"

##Descubra a classe de cada um.
class(letters)
[1] "character"

> class(LETTERS)
[1] "character"

##Como voc os transformaria em objetos da classe fator?
 as.factor(letters)
 [1] a b c d e f g h i j k l m n o p q r s t u v w x y z
Levels: a b c d e f g h i j k l m n o p q r s t u v w x y z

 as.factor(LETTERS)
 [1] A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
Levels: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z


#1.5 Remoo Com Critrio

load ("bichos.rdata")
ls()
rm(temp1,temp2,temp3)
save(anfibios, aves, mamiferos, file="bichos01.rdata")
load("bichos01.rdata")
ls()


#1.6 Objetos de Data

hoje <- Sys.Date()
class(hoje)
camp <- ("21/06/70")
camp <- as.Date (camp, format="%d/%m/%y")
hoje <- as.Date (hoje, format="%d/%m/%y")
dif <- (hoje-camp)
dif


outrodia<-(hoje+43)
outrodia
